Voorbeeld van de functie Command

Dit voorbeeld maakt gebruik van de functie Command voor het verkrijgen van de opdrachtregelargumenten in een functie die ze als resultaat geeft in een Variant die een matrix bevat. Niet beschikbaar in Microsoft Office.

Function GetCommandLine(Optional MaxArgs)
    ' Declareert variabelen.
    Dim C, CmdLine, CmdLnLen, InArg, I, NumArgs
    'Controleert of MaxArgs is opgegeven.
    If IsMissing(MaxArgs) Then MaxArgs = 10
    'Geeft matrix de juiste omvang.
    ReDim ArgArray(MaxArgs)
    NumArgs = 0: InArg = False
    'Leest opdrachtregelargumenten.
    CmdLine = Command()
    CmdLnLen = Len(CmdLine)
    'Doorloopt opdrachtregel teken
    'voor teken.
    For I = 1 To CmdLnLen
        C = Mid(CmdLine, I, 1)
        'Test op spaties of tabs.
        If (C <> " " And C <> vbTab) Then
            'Geen spatie of tab gevonden.
            'Test of al in argument aanwezig.
            If Not InArg Then
            'Nieuw argument begint.
            'Test op teveel argumenten.
                If NumArgs = MaxArgs Then Exit For
                NumArgs = NumArgs + 1
                InArg = True
            End If
            'Voegt teken samen met huidige argument.
            ArgArray(NumArgs) = ArgArray(NumArgs) + C
        Else
            'Spatie of tab aangetroffen.
            'Stelt vlag InArg in op False.
            InArg = False
        End If
    Next I
    'Past omvang matrix aan argumenten aan.
    ReDim Preserve ArgArray(NumArgs)
    'Geeft matrix terug in Function-naam.
    GetCommandLine = ArgArray()
End Function